#!/usr/bin/env perl

use utf8;

@name = qw/ fred betty barney dino wilma peddles bamm-bamm/;

@lines = <STDIN>;

print "Reverse the lines -->\n";

foreach(@lines){
	print $name[$_]."\n";
}
